declare
fun {GetText A}
H T D W in
   D=td(lr(label(text:A) entry(handle:H))
        button(text:"Ok"
               action:proc {$} T={H get($)} {W close} end))
   W={QTk.build D}
   {W show} {W wait}
   T
end
